unit uniLog;

interface

procedure Log(strLog: string);

implementation

procedure Log(strLog: string);
var
  strFileName: string;
  LogFile: TextFile;
begin
  try
    AssignFile(LogFile, strFileName);
    Rewrite(LogFile);
    Writeln(LogFile, strLog);
  finally
    CloseFile(LogFile);
  end;
end;

end.
